library(dplyr)
library(tibble)
# create a tibble with all the options
dinner_df <- tibble(starter = c(1, 2, 3),
main = c(2, 1, 3),
dessert = c(3, 2, 1))
set.seed(01) # to reproduce the same values for the sample
(my_dinner <- dinner_df %>%
dplyr::sample_n(1))# A tibble: 1 × 3
starter main dessert
<dbl> <dbl> <dbl>
1 1 2 3